inherited f_Variedades: Tf_Variedades
  Left = 316
  Top = 143
  Width = 642
  Height = 457
  Caption = 'f_Variedades'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited MMJPanel1: TMMJPanel
    Top = 0
    Width = 626
    Height = 60
    Align = alTop
    inherited btnGravar: TBitBtn
      Left = 15
      Top = 2
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
    inherited btnIncluir: TBitBtn
      Left = 14
      Top = 2
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
    inherited btnCancelar: TBitBtn
      Left = 93
      Top = 2
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
    inherited btnExcluir: TBitBtn
      Left = 92
      Top = 2
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
    inherited btnProcurar: TBitBtn
      Left = 538
      Top = -1
      Width = 75
      Height = 55
      Visible = False
      Layout = blGlyphTop
    end
    inherited btnSair: TBitBtn
      Left = 169
      Top = 2
      Width = 75
      Height = 55
      Layout = blGlyphTop
    end
  end
  inherited MMJPanel2: TMMJPanel
    Left = 32
    Top = 222
    Width = 564
    Align = alNone
  end
  object MMJPanel3: TMMJPanel [2]
    Left = 0
    Top = 60
    Width = 626
    Height = 359
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 2
    Silhuette.Shape.ShapeText = 'Shape text'
    Silhuette.PictureShape.Picture.Data = {07544269746D617000000000}
    Silhuette.PictureShape.DisplayPicture = True
    Background.StartColor = clActiveCaption
    Background.EndColor = clSilver
    Background.FillType = GradUpDown
    object lbl1: TLabel
      Left = 248
      Top = -100
      Width = 110
      Height = 42
      Caption = 'Label1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -37
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      Transparent = True
      Visible = False
    end
    object lbl2: TLabel
      Left = 252
      Top = -100
      Width = 110
      Height = 42
      Caption = 'Label1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -37
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      Transparent = True
      Visible = False
    end
    object lbl3: TLabel
      Left = 13
      Top = 9
      Width = 40
      Height = 13
      Caption = 'C'#243'digo'
      Transparent = True
    end
    object lbl4: TLabel
      Left = 493
      Top = 9
      Width = 21
      Height = 13
      Caption = 'Un.'
      Transparent = True
    end
    object lbl5: TLabel
      Left = 528
      Top = 9
      Width = 62
      Height = 13
      Caption = 'Qtde caixa'
      Transparent = True
    end
    object lbl6: TLabel
      Left = 175
      Top = 9
      Width = 45
      Height = 13
      Caption = 'Produto'
      Transparent = True
    end
    object dbgrd1: TDBGrid
      Left = 12
      Top = 47
      Width = 601
      Height = 260
      Color = clMenu
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      Columns = <
        item
          Expanded = False
          FieldName = 'CODPRO'
          Title.Caption = 'C'#243'digo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRODUTO'
          Title.Caption = 'Descri'#231#227'o'
          Width = 400
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UNIDADEMEDIDA'
          Title.Caption = 'UN'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VRP_QUTDECX'
          Title.Caption = 'Qtde Caixa'
          Visible = True
        end>
    end
    object dbedtCODIGO: TDBEdit
      Left = 12
      Top = 25
      Width = 121
      Height = 21
      DataField = 'CODPRO'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnExit = dbedtCODIGOExit
      OnKeyPress = FormKeyPress
    end
    object btn1: TBitBtn
      Left = 134
      Top = 22
      Width = 38
      Height = 25
      TabOrder = 3
      OnClick = btn1Click
    end
    object dbedtUNIDADE: TDBEdit
      Left = 492
      Top = 25
      Width = 33
      Height = 21
      Color = clSilver
      DataField = 'UNIDADEMEDIDA'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object dbedtVRP_QUTDECX: TDBEdit
      Left = 527
      Top = 25
      Width = 86
      Height = 21
      DataField = 'VRP_QUTDECX'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnExit = dbedtVRP_QUTDECXExit
      OnKeyPress = FormKeyPress
    end
    object dbedtPRODUTO: TDBEdit
      Left = 174
      Top = 25
      Width = 315
      Height = 21
      TabStop = False
      Color = clSilver
      DataField = 'PRODUTO'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 5
    end
    object dbnvgr1: TDBNavigator
      Left = 192
      Top = 324
      Width = 224
      Height = 25
      DataSource = DtSrc
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 6
    end
  end
  inherited XPMenu1: TXPMenu
    Left = 264
    Top = 213
  end
  inherited PopupMenu1: TPopupMenu
    Left = 304
    Top = 213
  end
  inherited DtSrc: TDataSource
    DataSet = ds_prod
    Left = 233
    Top = 212
  end
  object s_Prod: TSQLDataSet
    CommandText = 
      'select v.*, '#13#10'          p.PRODUTO, '#13#10'          p.UNIDADEMEDIDA,'#13 +
      #10'          p.CODPRO  '#13#10'   from VARIEDADEPROPRIEDADE v'#13#10'inner joi' +
      'n PRODUTOS p on  p.CODPRODUTO = v.VRP_PRODUTO'#13#10'where VRP_IDPROP ' +
      '= :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 136
    Top = 212
    object s_ProdVRP_ID: TIntegerField
      FieldName = 'VRP_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object s_ProdVRP_PRODUTO: TIntegerField
      FieldName = 'VRP_PRODUTO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object s_ProdVRP_IDPROP: TIntegerField
      FieldName = 'VRP_IDPROP'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object s_ProdVRP_QUTDE: TFloatField
      FieldName = 'VRP_QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object s_ProdVRP_QUTDECX: TFloatField
      FieldName = 'VRP_QUTDECX'
      ProviderFlags = [pfInUpdate]
    end
    object s_ProdPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Size = 300
    end
    object s_ProdUNIDADEMEDIDA: TStringField
      FieldName = 'UNIDADEMEDIDA'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
    object s_ProdCODPRO: TStringField
      FieldName = 'CODPRO'
      ProviderFlags = []
      Size = 15
    end
  end
  object p_prod: TDataSetProvider
    DataSet = s_Prod
    UpdateMode = upWhereKeyOnly
    Left = 168
    Top = 212
  end
  object ds_prod: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'p_prod'
    Left = 200
    Top = 212
    object ds_prodVRP_ID: TIntegerField
      FieldName = 'VRP_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ds_prodVRP_PRODUTO: TIntegerField
      FieldName = 'VRP_PRODUTO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object ds_prodVRP_IDPROP: TIntegerField
      FieldName = 'VRP_IDPROP'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object ds_prodVRP_QUTDE: TFloatField
      FieldName = 'VRP_QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object ds_prodVRP_QUTDECX: TFloatField
      FieldName = 'VRP_QUTDECX'
      ProviderFlags = [pfInUpdate]
    end
    object ds_prodPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = []
      Size = 300
    end
    object ds_prodUNIDADEMEDIDA: TStringField
      FieldName = 'UNIDADEMEDIDA'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
    object ds_prodCODPRO: TStringField
      FieldName = 'CODPRO'
      ProviderFlags = []
      Size = 15
    end
  end
  object sdsP: TSQLDataSet
    CommandText = 'select * from PRODUTOS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 136
    Top = 252
    object sdsPCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      Required = True
    end
    object sdsPFAMILIA: TStringField
      FieldName = 'FAMILIA'
      Size = 30
    end
    object sdsPCATEGORIA: TStringField
      FieldName = 'CATEGORIA'
      Size = 30
    end
    object sdsPMARCA: TStringField
      FieldName = 'MARCA'
      Size = 30
    end
    object sdsPUNIDADEMEDIDA: TStringField
      FieldName = 'UNIDADEMEDIDA'
      FixedChar = True
      Size = 2
    end
    object sdsPDATAULTIMACOMPRA: TDateField
      FieldName = 'DATAULTIMACOMPRA'
    end
    object sdsPESTOQUEMAXIMO: TFloatField
      FieldName = 'ESTOQUEMAXIMO'
    end
    object sdsPESTOQUEATUAL: TFloatField
      FieldName = 'ESTOQUEATUAL'
    end
    object sdsPESTOQUEREPOSICAO: TFloatField
      FieldName = 'ESTOQUEREPOSICAO'
    end
    object sdsPESTOQUEMINIMO: TFloatField
      FieldName = 'ESTOQUEMINIMO'
    end
    object sdsPVALORUNITARIOATUAL: TFloatField
      FieldName = 'VALORUNITARIOATUAL'
    end
    object sdsPVALORUNITARIOANTERIOR: TFloatField
      FieldName = 'VALORUNITARIOANTERIOR'
    end
    object sdsPICMS: TFloatField
      FieldName = 'ICMS'
    end
    object sdsPCODALMOXARIFADO: TIntegerField
      FieldName = 'CODALMOXARIFADO'
    end
    object sdsPIPI: TFloatField
      FieldName = 'IPI'
    end
    object sdsPCLASSIFIC_FISCAL: TStringField
      FieldName = 'CLASSIFIC_FISCAL'
      Size = 30
    end
    object sdsPCST: TStringField
      FieldName = 'CST'
      Size = 30
    end
    object sdsPBASE_ICMS: TFloatField
      FieldName = 'BASE_ICMS'
    end
    object sdsPPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Required = True
      Size = 300
    end
    object sdsPPRECOMEDIO: TBCDField
      FieldName = 'PRECOMEDIO'
      Precision = 9
      Size = 2
    end
    object sdsPCOD_COMISSAO: TIntegerField
      FieldName = 'COD_COMISSAO'
    end
    object sdsPMARGEM_LUCRO: TFloatField
      FieldName = 'MARGEM_LUCRO'
    end
    object sdsPCOD_BARRA: TStringField
      FieldName = 'COD_BARRA'
    end
    object sdsPVALOR_PRAZO: TFloatField
      FieldName = 'VALOR_PRAZO'
    end
    object sdsPTIPO: TStringField
      FieldName = 'TIPO'
      Size = 10
    end
    object sdsPCONTA_DESPESA: TStringField
      FieldName = 'CONTA_DESPESA'
      Size = 15
    end
    object sdsPCONTA_RECEITA: TStringField
      FieldName = 'CONTA_RECEITA'
      Size = 15
    end
    object sdsPCONTA_ESTOQUE: TStringField
      FieldName = 'CONTA_ESTOQUE'
      Size = 15
    end
    object sdsPRATEIO: TStringField
      FieldName = 'RATEIO'
      FixedChar = True
      Size = 1
    end
    object sdsPCODPRO: TStringField
      FieldName = 'CODPRO'
      Size = 15
    end
    object sdsPQTDE_PCT: TFloatField
      FieldName = 'QTDE_PCT'
    end
    object sdsPPESO_QTDE: TFloatField
      FieldName = 'PESO_QTDE'
    end
    object sdsPDATACADASTRO: TSQLTimeStampField
      FieldName = 'DATACADASTRO'
    end
    object sdsPMARGEM: TFloatField
      FieldName = 'MARGEM'
    end
    object sdsPPRO_COD: TStringField
      FieldName = 'PRO_COD'
      Size = 15
    end
    object sdsPDATAGRAV: TDateField
      FieldName = 'DATAGRAV'
    end
    object sdsPCODFORN: TStringField
      FieldName = 'CODFORN'
      Size = 60
    end
    object sdsPFOTOPRODUTO: TStringField
      FieldName = 'FOTOPRODUTO'
      Size = 80
    end
    object sdsPUSA: TStringField
      FieldName = 'USA'
      Size = 3
    end
    object sdsPLOTES: TStringField
      FieldName = 'LOTES'
      FixedChar = True
      Size = 1
    end
    object sdsPLOCALIZACAO: TStringField
      FieldName = 'LOCALIZACAO'
      Size = 50
    end
    object sdsPTIPOPRECOVENDA: TStringField
      FieldName = 'TIPOPRECOVENDA'
      FixedChar = True
      Size = 1
    end
    object sdsPVALORMINIMO: TFloatField
      FieldName = 'VALORMINIMO'
    end
    object sdsPVALORCOMISSAO: TFloatField
      FieldName = 'VALORCOMISSAO'
    end
    object sdsPGERADESCONTO: TStringField
      FieldName = 'GERADESCONTO'
      FixedChar = True
      Size = 1
    end
    object sdsPIMPRIMIR: TStringField
      FieldName = 'IMPRIMIR'
      FixedChar = True
      Size = 1
    end
  end
  object dspP: TDataSetProvider
    DataSet = sdsP
    UpdateMode = upWhereKeyOnly
    Left = 168
    Top = 252
  end
  object dsP: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspP'
    Left = 200
    Top = 252
    object dsPCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      Required = True
    end
    object dsPFAMILIA: TStringField
      FieldName = 'FAMILIA'
      Size = 30
    end
    object dsPCATEGORIA: TStringField
      FieldName = 'CATEGORIA'
      Size = 30
    end
    object dsPMARCA: TStringField
      FieldName = 'MARCA'
      Size = 30
    end
    object dsPUNIDADEMEDIDA: TStringField
      FieldName = 'UNIDADEMEDIDA'
      FixedChar = True
      Size = 2
    end
    object dsPDATAULTIMACOMPRA: TDateField
      FieldName = 'DATAULTIMACOMPRA'
    end
    object dsPESTOQUEMAXIMO: TFloatField
      FieldName = 'ESTOQUEMAXIMO'
    end
    object dsPESTOQUEATUAL: TFloatField
      FieldName = 'ESTOQUEATUAL'
    end
    object dsPESTOQUEREPOSICAO: TFloatField
      FieldName = 'ESTOQUEREPOSICAO'
    end
    object dsPESTOQUEMINIMO: TFloatField
      FieldName = 'ESTOQUEMINIMO'
    end
    object dsPVALORUNITARIOATUAL: TFloatField
      FieldName = 'VALORUNITARIOATUAL'
    end
    object dsPVALORUNITARIOANTERIOR: TFloatField
      FieldName = 'VALORUNITARIOANTERIOR'
    end
    object dsPICMS: TFloatField
      FieldName = 'ICMS'
    end
    object dsPCODALMOXARIFADO: TIntegerField
      FieldName = 'CODALMOXARIFADO'
    end
    object dsPIPI: TFloatField
      FieldName = 'IPI'
    end
    object dsPCLASSIFIC_FISCAL: TStringField
      FieldName = 'CLASSIFIC_FISCAL'
      Size = 30
    end
    object dsPCST: TStringField
      FieldName = 'CST'
      Size = 30
    end
    object dsPBASE_ICMS: TFloatField
      FieldName = 'BASE_ICMS'
    end
    object dsPPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Required = True
      Size = 300
    end
    object dsPPRECOMEDIO: TBCDField
      FieldName = 'PRECOMEDIO'
      Precision = 9
      Size = 2
    end
    object dsPCOD_COMISSAO: TIntegerField
      FieldName = 'COD_COMISSAO'
    end
    object dsPMARGEM_LUCRO: TFloatField
      FieldName = 'MARGEM_LUCRO'
    end
    object dsPCOD_BARRA: TStringField
      FieldName = 'COD_BARRA'
    end
    object dsPVALOR_PRAZO: TFloatField
      FieldName = 'VALOR_PRAZO'
    end
    object dsPTIPO: TStringField
      FieldName = 'TIPO'
      Size = 10
    end
    object dsPCONTA_DESPESA: TStringField
      FieldName = 'CONTA_DESPESA'
      Size = 15
    end
    object dsPCONTA_RECEITA: TStringField
      FieldName = 'CONTA_RECEITA'
      Size = 15
    end
    object dsPCONTA_ESTOQUE: TStringField
      FieldName = 'CONTA_ESTOQUE'
      Size = 15
    end
    object dsPRATEIO: TStringField
      FieldName = 'RATEIO'
      FixedChar = True
      Size = 1
    end
    object dsPCODPRO: TStringField
      FieldName = 'CODPRO'
      Size = 15
    end
    object dsPQTDE_PCT: TFloatField
      FieldName = 'QTDE_PCT'
    end
    object dsPPESO_QTDE: TFloatField
      FieldName = 'PESO_QTDE'
    end
    object dsPDATACADASTRO: TSQLTimeStampField
      FieldName = 'DATACADASTRO'
    end
    object dsPMARGEM: TFloatField
      FieldName = 'MARGEM'
    end
    object dsPPRO_COD: TStringField
      FieldName = 'PRO_COD'
      Size = 15
    end
    object dsPDATAGRAV: TDateField
      FieldName = 'DATAGRAV'
    end
    object dsPCODFORN: TStringField
      FieldName = 'CODFORN'
      Size = 60
    end
    object dsPFOTOPRODUTO: TStringField
      FieldName = 'FOTOPRODUTO'
      Size = 80
    end
    object dsPUSA: TStringField
      FieldName = 'USA'
      Size = 3
    end
    object dsPLOTES: TStringField
      FieldName = 'LOTES'
      FixedChar = True
      Size = 1
    end
    object dsPLOCALIZACAO: TStringField
      FieldName = 'LOCALIZACAO'
      Size = 50
    end
    object dsPTIPOPRECOVENDA: TStringField
      FieldName = 'TIPOPRECOVENDA'
      FixedChar = True
      Size = 1
    end
    object dsPVALORMINIMO: TFloatField
      FieldName = 'VALORMINIMO'
    end
    object dsPVALORCOMISSAO: TFloatField
      FieldName = 'VALORCOMISSAO'
    end
    object dsPGERADESCONTO: TStringField
      FieldName = 'GERADESCONTO'
      FixedChar = True
      Size = 1
    end
    object dsPIMPRIMIR: TStringField
      FieldName = 'IMPRIMIR'
      FixedChar = True
      Size = 1
    end
  end
end
